home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / talkingt.sit / Talking Tools / card_4011.txt < prev    next >
Text File  |  1988-11-25  |  6KB  |  252 lines
  1. -- card: 4011 from stack: in
  2. -- bmap block id: 4539
  3. -- flags: 0000
  4. -- background id: 2617
  5. -- name: More Talk Tools
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 2004
  11. -- rect: left=15 top=62 right=320 bottom=84
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. On MouseEnter
  22.   global text
  23.   put card field 1 into text
  24.   talk text, 190, 100
  25.   pass MouseEnter
  26. End MouseEnter
  27.  
  28.  
  29. -- part 2 (button)
  30. -- low flags: 00
  31. -- high flags: A004
  32. -- rect: left=370 top=277 right=297 bottom=453
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: Say It Now.
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   Talk card field speak, card field rate, card field pitch
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 4 (button)
  49. -- low flags: 00
  50. -- high flags: 0000
  51. -- rect: left=347 top=95 right=115 bottom=366
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 26020 / 26020
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: pitch up.
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   add 10 to card field pitch
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part 5 (button)
  68. -- low flags: 00
  69. -- high flags: 0000
  70. -- rect: left=348 top=140 right=160 bottom=367
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 26020 / 26020
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: rate up.
  79. ----- HyperTalk script -----
  80. on mouseUp
  81.   add 10 to card field rate
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 6 (button)
  87. -- low flags: 00
  88. -- high flags: 0000
  89. -- rect: left=346 top=117 right=135 bottom=366
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 15279 / 15279
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: pitch down.
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   subtract 10 from card field pitch
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 7 (button)
  106. -- low flags: 00
  107. -- high flags: 0000
  108. -- rect: left=347 top=162 right=179 bottom=367
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 15279 / 15279
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: rate down
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   subtract 10 from card field rate
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 8 (field)
  125. -- low flags: 00
  126. -- high flags: 0004
  127. -- rect: left=371 top=99 right=134 bottom=428
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 0
  131. -- font id: 20
  132. -- text size: 24
  133. -- style flags: 0
  134. -- line height: 32
  135. -- part name: Pitch
  136.  
  137.  
  138. -- part 10 (field)
  139. -- low flags: 00
  140. -- high flags: 0004
  141. -- rect: left=371 top=143 right=178 bottom=428
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 0
  145. -- font id: 20
  146. -- text size: 24
  147. -- style flags: 0
  148. -- line height: 32
  149. -- part name: Rate
  150.  
  151.  
  152. -- part 11 (field)
  153. -- low flags: 00
  154. -- high flags: 2004
  155. -- rect: left=335 top=179 right=276 bottom=487
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 1
  159. -- font id: 3
  160. -- text size: 14
  161. -- style flags: 256
  162. -- line height: 18
  163. -- part name: speak
  164.  
  165.  
  166. -- part 13 (field)
  167. -- low flags: 00
  168. -- high flags: 2004
  169. -- rect: left=94 top=63 right=320 bottom=325
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 0
  173. -- font id: 3
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: Copy XCMD
  178.  
  179.  
  180. -- part 12 (button)
  181. -- low flags: 00
  182. -- high flags: 8004
  183. -- rect: left=149 top=291 right=316 bottom=263
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: ResCopy Mover
  192. ----- HyperTalk script -----
  193. on mouseUp  --DO NOT CHANGE LINE 2! IT IS MODIFIED BY ANOTHER SCRIPT!
  194.   put "NAUGC Hyper#14 (BMUG):Talking Tools" into sourceStack
  195.   put the long name of this stack into destStack
  196.   delete first word of destStack
  197.   delete first character of destStack
  198.   delete last character of destStack
  199.   if sourceStack<>destStack then
  200.     set lockscreen to true
  201.     set lockmessages to true
  202.     push this card
  203.     go stack sourceStack
  204.     ResCopy sourceStack,destStack,"XCMD","ResCopy"
  205.     get the result
  206.     ResCopy sourceStack,destStack,"XCMD","Talk"
  207.     -- here is where you would copy more resources.
  208.     pop card
  209.     choose button tool
  210.     click at location of card button "ResCopy Mover"
  211.     domenu clear button
  212.     choose browse tool
  213.     set lockmessages to false
  214.     set lockscreen to false
  215.     if first char of it is "E" then
  216.       -- you could put better error handling here
  217.       put it into the message box
  218.     end if
  219.   end if
  220. end mouseUp
  221.  
  222.  
  223.  
  224.  
  225. -- part contents for card part 1
  226. ----- text -----
  227. To make this text speak, just pass the cursor through this field. You don't need to click.
  228.  
  229. -- part contents for card part 8
  230. ----- text -----
  231. 150
  232.  
  233. -- part contents for card part 10
  234. ----- text -----
  235. 150
  236.  
  237. -- part contents for card part 11
  238. ----- text -----
  239. Use these above controls to change the sound of this text.
  240.  
  241.  
  242. -- part contents for background part 6
  243. ----- text -----
  244. More Talk Tools
  245.  
  246. -- part contents for card part 13
  247. ----- text -----
  248. "How can I make MY stacks talk?" HyperCard uses an external command (XCMD) resource called   "Talk" to access the MacinTalk driver (which must be in your system folder).  Its format is:
  249. Talk <text>, <rate>, <pitch>.  There are two ways to move this XCMD to your home stack.  One way is to use ResEdit.  A simpler way is to use this ResCopy Mover button.  Just COPY and PASTE it into your home stack, then click it.  It'll make the transfer, then go away.
  250.  
  251.  
  252.